home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / amag / AM9404_2.lha / tips & tricks / cachesoff.asm next >
Assembly Source File  |  1994-02-28  |  1KB  |  48 lines
  1. *************************************************
  2. *                                               *
  3. *                CACHES OFF                     *
  4. *              --------------                   *
  5. *                                               *
  6. * Schaltet die Caches bei 68020/68030/68040-    *
  7. * Prozessoren ab                                *
  8. *                                               *
  9. *************************************************
  10.  
  11. EXECBASE    = 4
  12. SUPERVISOR  =-30
  13.  
  14. SWITCHCACHESOFF:
  15.     MOVE.L  (EXECBASE).W,A6
  16.     MOVE.W  296(A6),D0
  17.     BTST    #1,D0
  18.     BEQ.S   NOCACHE
  19.     BTST    #3,D0
  20.     BNE.S   CACHE40
  21. CACHE20_30:
  22.     LEA CACHEOFF20_30(PC),A5
  23.     JSR SUPERVISOR(A6)
  24.     BRA.S   NOCACHE
  25. CACHE40:
  26.     LEA CACHEOFF40(PC),A5
  27.     JSR SUPERVISOR(A6)
  28. NOCACHE:
  29.     RTS
  30.  
  31. CACHEOFF40:
  32.     OR.W    #$700,SR
  33.     MOVEQ   #0,D2
  34.     NOP
  35.     LINE_F  #$04F8
  36.     NOP
  37.     DC.W    $4E7B,$2002
  38.     NOP
  39.     RTE
  40.  
  41. CACHEOFF20_30:
  42.     OR.W    #$700,SR
  43.     MOVE.L  #$E0E,D2
  44.     NOP
  45.     DC.W    $4E7B,$2002
  46.     NOP
  47.     RTE
  48.